home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / mui32dev.lha / MUI / Developer / Modula / txt / MuiL.def < prev    next >
Text File  |  1995-12-15  |  5KB  |  175 lines
  1. DEFINITION MODULE MuiL{"muimaster.library",5}; (* note that version 5 is very old - if you need newer functions
  2.                                                   test this! 
  3.                                                *)
  4.  
  5. (***************************************************************************
  6. **
  7. ** $VER: MuiL.def 3.1 (18.11.95)
  8. **
  9. ** The following updates have been done by
  10. **
  11. **   Olaf "Olf" Peters <olf@informatik.uni-bremen.de>
  12. **
  13. ** $HISTORY:
  14. **
  15. ** 18.11.95  3.1   : updated for MUI v3.1 release
  16. **
  17. ***************************************************************************)
  18.  
  19. (*
  20. ** Modula-Interface for muimaster.library
  21. **
  22. ** MUI (c) 1993/94 by Stefan Stuntz
  23. **
  24. ** Modula-Interface done by Christian "Kochtopf" Scholz in 1993/94
  25. **
  26. ** If you got problems please contact :
  27. **
  28. **  ruebe@pool.informatik.rwth-aachen.de
  29. *)
  30.  
  31. FROM SYSTEM     IMPORT ADDRESS;
  32. FROM MuiClasses IMPORT mCustomClassPtr, mRenderInfoPtr, ClassDispatcher;
  33. FROM MuiD       IMPORT mPenSpecPtr, APTR, StrPtr ;
  34.  
  35. IMPORT
  36.   ed : ExecD,
  37.   gd : GraphicsD,
  38.   id : IntuitionD,
  39.   R,
  40.   ud : UtilityD ;
  41.  
  42. TYPE mImage     = ADDRESS;
  43. TYPE mImageInfo = ADDRESS;
  44.  
  45. VAR  
  46.      muiMasterVersion       : INTEGER;
  47.      muiMasterBase          : ed.LibraryPtr;
  48.  
  49. CONST
  50.      muiMasterMinVersion    = 4;
  51.      muiMasterName          = "muimaster.library";
  52.  
  53. PROCEDURE mNewObject 
  54.             (class{R.A0}    : StrPtr;
  55.              taglist{R.A1}  : ud.TagItemPtr) : APTR ; CODE -30;
  56.  
  57. PROCEDURE mDisposeObject
  58.             (obj{R.A0}      : APTR); CODE -36;
  59.  
  60. PROCEDURE mRequestA 
  61.             (app{R.D0}      : APTR;
  62.              win{R.D1}      : APTR;
  63.              flags{R.D2}    : LONGINT;
  64.              title{R.A0}    : StrPtr;
  65.              gadgets{R.A1}  : StrPtr;
  66.              format{R.A2}   : StrPtr;
  67.              params{R.A3}   : ud.TagItemPtr): LONGINT; CODE -42;
  68.  
  69.  
  70. PROCEDURE mAllocAslRequest
  71.             (reqtype{R.D0}  : LONGINT;
  72.              taglist{R.A0}  : ud.TagItemPtr) : APTR; CODE -48;
  73.  
  74. PROCEDURE mAslRequest 
  75.             (requester{R.A0}: APTR;
  76.              taglist{R.A1}  : ud.TagItemPtr) : BOOLEAN; CODE -54;
  77.  
  78. PROCEDURE mFreeAslRequest 
  79.             (requester{R.A0}: APTR); CODE -60;
  80.  
  81. PROCEDURE mError() : LONGINT; CODE -66;
  82.  
  83. PROCEDURE MakeObject
  84.             (objtype{R.D0}      : LONGINT;
  85.              params{R.A0}       : ud.TagItemPtr) : id.ObjectPtr; CODE -120;
  86.  
  87. (******************************************)
  88. (* functions to be used in custom classes *)
  89. (******************************************)
  90.  
  91. PROCEDURE moSetError
  92.             (num{R.D0}      : LONGINT) : LONGINT; CODE -72;
  93.  
  94. PROCEDURE moGetClass
  95.             (classname{R.A0}: StrPtr) : id.IClassPtr; CODE -78;
  96.  
  97. PROCEDURE moFreeClass
  98.             (classptr{R.A0} : id.IClassPtr); CODE -84;
  99.  
  100.  
  101. PROCEDURE moRequestIDCMP
  102.             (obj{R.A0}      : id.ObjectPtr;
  103.              flags{R.D0}    : id.IDCMPFlagSet); CODE -90;
  104.  
  105. PROCEDURE moRejectIDCMP
  106.             (obj{R.A0}      : id.ObjectPtr;
  107.              flags{R.D0}    : id.IDCMPFlagSet); CODE -96;
  108.  
  109. PROCEDURE moRedraw
  110.             (obj{R.A0}      : id.ObjectPtr;
  111.              flags{R.D0}    : LONGCARD) : APTR; CODE -102;
  112.  
  113. PROCEDURE moAddClipping
  114.             (mri{R.A0}  : mRenderInfoPtr;
  115.              left{R.D0},
  116.              top{R.D1},
  117.              width{R.D2},
  118.              height{R.D3} : INTEGER) : APTR; CODE -168;
  119.  
  120. PROCEDURE moRemoveClipping
  121.             (mri{R.A0}    : mRenderInfoPtr;
  122.              handle{R.A1} : APTR) ; CODE -174 ;
  123.  
  124. PROCEDURE moAddClipRegion
  125.             (mri{R.A0} : mRenderInfoPtr;
  126.              r{R.A1}   : gd.RegionPtr) : APTR ; CODE -180;
  127.  
  128. PROCEDURE moRemoveClipRegion
  129.             (mri{R.A0}    : mRenderInfoPtr;
  130.              handle{R.A1} : APTR) ; CODE -186;
  131.  
  132. PROCEDURE moBeginRefresh
  133.             (mri{R.A0}    : mRenderInfoPtr;
  134.              flags{R.D0}  : LONGINT) : BOOLEAN ; CODE -192 ;
  135.  
  136. PROCEDURE moEndRefresh
  137.             (mri{R.A0}    : mRenderInfoPtr;
  138.              flags{R.D0}  : LONGINT) ; CODE -198 ;
  139.  
  140. PROCEDURE moCreateCustomClass
  141.             (base{R.A0}         : ed.LibraryPtr;
  142.              supername{R.A1}    : StrPtr;
  143.              supermcc{R.A2}     : mCustomClassPtr;
  144.              datasize{R.D0}     : LONGINT;
  145.              dispatcher{R.A3}   : ClassDispatcher) : mCustomClassPtr;  CODE -108;
  146.  
  147. PROCEDURE moDeleteCustomClass
  148.             (mcc{R.A0}          : mCustomClassPtr) : BOOLEAN; CODE -114;
  149.  
  150.  
  151. PROCEDURE moObtainPen
  152.             (mri{R.A0}  : mRenderInfoPtr;
  153.              spec{R.A1} : mPenSpecPtr) : LONGINT ; CODE -156;
  154.  
  155. PROCEDURE moReleasePen
  156.             (mri{R.A0} : mRenderInfoPtr;
  157.              pen{R.D0} : LONGINT) ; CODE -162 ;
  158.  
  159.  
  160. (*************************************************************)
  161. (* layout function, use only in custom layout callback hook! *)
  162. (*************************************************************)
  163.  
  164. PROCEDURE moLayout
  165.             (obj{R.A0}    : id.ObjectPtr;
  166.              left{R.D0},
  167.              top{R.D1},
  168.              width{R.D2},
  169.              height{R.D3} : LONGINT;
  170.              flag{R.D4}   : LONGCARD) : BOOLEAN; CODE -126;
  171.  
  172. END MuiL.
  173.  
  174.  
  175.